home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
pxfsleep.z
/
pxfsleep
Wrap
Text File
|
1998-10-30
|
3KB
|
72 lines
PXFSLEEP(3F) Last changed: 2-24-98
NNAAMMEE
PPXXFFSSLLEEEEPP - Delays process execution
SSYYNNOOPPSSIISS
SSUUBBRROOUUTTIINNEE PPXXFFSSLLEEEEPP((_i_s_e_c_o_n_d_s,, _i_s_e_c_l_e_f_t,, _i_e_r_r_o_r))
IINNTTEEGGEERR _i_s_e_c_o_n_d_s,, _i_s_e_c_l_e_f_t,, ierror
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
DDEESSCCRRIIPPTTIIOONN
The PPXXFFSSLLEEEEPP subroutine waits _i_s_e_c_o_n_d_s before generating a SSIIGGAALLRRMM
signal. If a previous PPXXFFSSLLEEEEPP has time remaining, _i_s_e_c_l_e_f_t contains
the number of seconds until the signal SSIIGGAALLRRMM would have been
generated.
The following is a list of arguments for this routine:
_i_s_e_c_o_n_d_s Default integer input variable containing the number of
real-time seconds to wait before sending the calling process
a SSIIGGAALLRRMM signal.
_i_s_e_c_l_e_f_t Default integer output variable containing the number of
seconds left until a previous request would have generated a
SSIIGGAALLRRMM signal.
_i_e_r_r_o_r Default integer output variable containing a status of zero
if PPXXFFSSLLEEEEPP was successful.
On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
7.2 F77 compiler.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
IRIX systems, the default kind is KKIINNDD==44.
NNOOTTEESS
Replace the use of the sslleeeepp(3C) function with the subroutine call to
PXFSLEEP().
EEXXAAMMPPLLEESS
program pxftest
integer iseconds, isecleft, ierror
iseconds = 10
isecleft = 0
ierror = 0
CALL PXFSLEEP(iseconds, isecleft, ierror)
if (ierror .ne. 0) then
print *,'FAILED: PXFSLEEP call failed with error = ',ierror
else
print *,'PASSED: PXFSLEEP call returned no error'
endif
if (isecleft .ne. 0) then
print *,'FAILED: PXFSLEEP, isecleft not zero, =',isecleft
endif
end
SSEEEE AALLSSOO
aallaarrmm(2)
sslleeeepp(3C)
_A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication
SR-2165, for the printed version of this man page.